home *** CD-ROM | disk | FTP | other *** search
/ VisualFX for ImageFX / VisualFX for Image FX 2.adf / Files / SetUp / 02 / 14.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-01-23  |  2.7 KB  |  119 lines
  1. /*
  2.                                  Visual FX
  3.                                     For
  4.                                  Image FX
  5.                                SetUp Script
  6.                            Written By J.L. White
  7.  
  8.                          (C)1997 Merlin's Software
  9.  
  10. */
  11. parse arg Num
  12. options results
  13. address "IMAGEFX.1"
  14.  
  15.  
  16.  
  17.     Gadget.1 = 'D/135/22/130/Movement Type /4/Right To Left/Left To Right/Top To Bottom/Bottom To Top'
  18.     ComplexRequest  '"Select Movement Of Image A!"' 1 Gadget 290 60
  19.     if rc ~= 0 then do
  20.         Type1 = 0
  21.         end
  22.     else do
  23.         Type1 = RESULT.1
  24.     end
  25.  
  26.  
  27.     Gadget.1 = 'D/135/22/130/Movement Type /4/Top To Bottom/Bottom To Top/Right To Left/Left To Right'
  28.     ComplexRequest  '"Select Movement Of Image B!"' 1 Gadget 290 60
  29.     if rc ~= 0 then do
  30.         Type2 = 0
  31.         end
  32.     else do
  33.         Type2 = RESULT.1
  34.     end
  35.  
  36.     Gadget.1 = 'Select Color Or Image To Fade From!'
  37.     Gadget.2 = 'COLOR'
  38.     Gadget.3 = 'IMAGE'
  39.     ListRequest 3 Gadget
  40.     Type = 0
  41.     if result = 2 then Type = 0
  42.     if result = 3 then Type = 1
  43.  
  44.     if Type = 1 then do
  45.         ReDraw On
  46.         LoadBuffer "VFXIFX:Images/Pics/Seamless.Pic" Force
  47.         RequestNotify "Look At Examples For FileName Then Click OK"
  48.  
  49.         RequestFile '"Select File To Use For BackGround!" "VFXIFX:Images/Seamless" ""'
  50.         PicName = result
  51.         ColorPic = 1
  52.         Color = 1
  53.         Scroll = 0
  54.         XOff = 0
  55.         YOff = 0
  56.  
  57.         Gadget.1 = 'Do You Wish To Scroll Image?'
  58.         Gadget.2 = 'Scroll Image'
  59.         Gadget.3 = 'Do NOT Scroll'
  60.         ListRequest 3 Gadget
  61.         if result = 2 then Scroll = 1
  62.         if result = 3 then Scroll = 0
  63.         if Scroll = 1 then do
  64.  
  65.             text1 = '"Move X"'
  66.             text2 = '"Move Y"'
  67.             Gadget.1  = 'SLIDER LE=60 TE=4 WD=150 HT=14 LB='text1' IN=1 LO=-10 HI=10 LV=%-3ld'
  68.             Gadget.2  = 'SLIDER LE=60 TE=22 WD=150 HT=14 LB='text2' IN=1 LO=-10 HI=10 LV=%-3ld'
  69.             Gadget.3 = 'END'
  70.             NewComplexRequest  '"Select X & Y Movements!"' Gadget 250 42
  71.             if rc ~= 0 then do
  72.                 XOff = 0
  73.                 YOff = 0
  74.                 end
  75.             else do
  76.                 XOff = RESULT.1
  77.                 YOff = RESULT.2
  78.                 end
  79.             end
  80.  
  81.         end
  82.     else do
  83.  
  84.         ActiveColor 0
  85.         RequestNotify "Click On Color To Use As BackGround Then Click OK"
  86.         ActiveColor
  87.         Color = result
  88.         ColorPic = 0
  89.         PicName = ""
  90.         Scroll = 0
  91.         XOff = 0
  92.         YOff = 0
  93.         ActiveColor 1
  94.         end
  95.  
  96.     Gadget.1 = 'Select Number Of Flips!'
  97.     Gadget.2 = 'One Flip'
  98.     Gadget.3 = 'Two Flips'
  99.     Gadget.4 = 'Three Flips'
  100.     ListRequest 4 Gadget
  101.     Flips = 180
  102.     if result = 2 then Flips = 180
  103.     if result = 3 then Flips = 540
  104.     if result = 4 then Flips = 900
  105.  
  106.  
  107.  
  108. call open TempFile,"VFXIFX:TempDrawer/"strip(Num),W
  109. call writeln TempFile,Color
  110. call writeln TempFile,ColorPic
  111. call writeln TempFile,PicName
  112. call writeln TempFile,Scroll
  113. call writeln TempFile,XOff
  114. call writeln TempFile,YOff
  115. call writeln TempFile,Type1
  116. call writeln TempFile,Type2
  117. call writeln TempFile,Flips
  118. call close TempFile
  119.